
######### FIGURE 3

ttest entitlement4, by(treatment)
preserve
collapse (mean) meanentitlement = entitlement4 (sd) sdentitlement=entitlement4 (count) n=entitlement4, by(treatment)
generate hientitlement = meanentitlement + invttail(n-1,0.025)*(sdentitlement / sqrt(n))
generate loentitlement = meanentitlement - invttail(n-1,0.025)*(sdentitlement / sqrt(n))
twoway (bar meanentitlement treatment, barwidth(0.6)) (rcap hientitlement loentitlement treatment), yscale(range(1 4))ylabel(1(1)4) xscale(range(-0.5 1.5)) xlabel(0 "Low Entitlement" 1 "High Entitlement") title("Panel A: Entitlement") ytitle("Psychological Entitlement") xtitle(" ") legend(off) saving(F3-A.gph)
restore

ttest us_exceptionalism, by(treatment)
preserve
collapse (mean) meanexceptionalism = us_exceptionalism (sd) sdexceptionalism=us_exceptionalism (count) n=us_exceptionalism, by(treatment)
generate hiexceptionalism = meanexceptionalism + invttail(n-1,0.025)*(sdexceptionalism / sqrt(n))
generate loexceptionalism = meanexceptionalism - invttail(n-1,0.025)*(sdexceptionalism / sqrt(n))
twoway (bar meanexceptionalism treatment, barwidth(0.6)) (rcap hiexceptionalism loexceptionalism treatment), yscale(range(0 0.5))ylabel(0(.1).5) xscale(range(-0.5 1.5)) xlabel(0 "Low Entitlement" 1 "High Entitlement") title("Panel B: US Exceptionalism") ytitle("Psychological Entitlement") xtitle(" ") legend(off) saving(F3-B.gph)
restore


graph combine F3-A.gph F3-B.gph, xcommon  title(Figure 3: Average Treatment Effects) sub(DVs: Entitlement and US Exceptionalism) iscale(.5) row(1)





######### FIGURE 4

ttest obey, by(treatment)
preserve
collapse (mean) meanobey = obey (sd) sdobey=obey (count) n=obey, by(treatment)
generate hiobey = meanobey + invttail(n-1,0.025)*(sdobey / sqrt(n))
generate loobey = meanobey - invttail(n-1,0.025)*(sdobey / sqrt(n))
twoway (bar meanobey treatment, barwidth(0.6)) (rcap hiobey loobey treatment), yscale(range(2.8 3.3))ylabel(2.8(.2)3.4) xscale(range(-0.5 1.5)) xlabel(0 "Low Entitlement" 1 "High Entitlement") title("Panel A: Respect for International Law") ytitle("Psychological Entitlement") xtitle(" ") legend(off) saving(F4-A.gph)
restore

ttest interests_of_allies, by(treatment)
preserve
collapse (mean) meaninterests = interests_of_allies (sd) sdinterests=interests_of_allies (count) n=interests_of_allies, by(treatment)
generate hiinterests = meaninterests + invttail(n-1,0.025)*(sdinterests / sqrt(n))
generate lointerests = meaninterests - invttail(n-1,0.025)*(sdinterests / sqrt(n))
twoway (bar meaninterests treatment, barwidth(0.6)) (rcap hiinterests lointerests treatment), yscale(range(2.8 3.3))ylabel(2.8(.2)3.4) xscale(range(-0.5 1.5)) xlabel(0 "Low Entitlement" 1 "High Entitlement") title("Panel B: Compromise with Allies") ytitle("Psychological Entitlement") xtitle(" ") legend(off) saving(F4-B.gph)
restore

graph combine F4-A.gph F4-B.gph, xcommon  title(Figure 4: Average Treatment Effects) sub(DVs: Respect for International Law and Support for Compromise with Allies) iscale(.5) row(1)




######### MODEL 3
reg obey us_exceptionalism age gender_male education income ideology partyID_five hispanic milint_latent4 copint_latent4 isolationism_latent4 cosmopolitanism nationalism race_white_only if treatment!=.




######### MODEL 4
reg interests us_exceptionalism age gender_male education income ideology partyID_five hispanic milint_latent4 copint_latent4 isolationism_latent4 cosmopolitanism nationalism race_white_only if treatment!=.
